Set MyBtn = mainboard.controls("TB" & FlagRow & FlagColumn)
Set_Flag_Counter -1
MyBtn.picture = question.picture
BombMarkCtr = BombMarkCtr - 1
case 2
flags(FlagRow,FlagColumn,0) = 0
Set MyBtn = mainboard.controls("TB" & FlagRow & FlagColumn)
MyBtn.picture = label1.picture
end select
end sub
Sub Set_Flag_Counter(Amount)
FlagCount = FlagCount - Amount
FlagLen = Len(FlagCount)
If FlagCount > -1 then
Select case FlagLen
Case 1
Label3.Caption = "00" & FlagCount
Case 2
Label3.Caption = "0" & FlagCount
end Select
end if
If FlagCount < 0 then
FlagAbs = abs(FlagCount)
Select case FlagLen
Case 1
Label3.Caption = "-0" & FlagAbs
Case 2
Label3.Caption = "-" & FlagAbs
end Select
end if
end sub
Sub RunSnake(SnakeRow, SnakeColumn)
dim Blanks(63,1)
dim CurrentRow
dim NextRow
CurrentRow = 0
NextRow = 1
blanks(CurrentRow, 0) = SnakeRow
blanks(CurrentRow, 1) = SnakeColumn
Set OrgBtn = MainBoard.controls("TB" & SnakeRow & SnakeColumn)
OrgBtn.value = false
If flags(SnakeRow,SnakeColumn,1) = 0 then
SafeStepCtr = SafeStepCtr + 1
flags(SnakeRow,SnakeColumn,1) = 1
end if
LockRow = LockRow + 1
LockLater(LockRow) = OrgBtn.ID
Do until CurrentRow = NextRow
Set MyBtn = MainBoard.controls("TB" & blanks(CurrentRow,0) & blanks(CurrentRow,1))
For RecurseRow = -1 to 1
For RecurseColumn = -1 to 1
If (blanks(CurrentRow,0)+RecurseRow > 0) and (blanks(CurrentRow,0)+RecurseRow < 9) and (blanks(CurrentRow,1)+RecurseColumn < 9) and (blanks(CurrentRow,1)+RecurseColumn > 0) then
Set RecBtn = mainboard.controls("TB" & (blanks(CurrentRow, 0)+RecurseRow) & (blanks(CurrentRow,1)+RecurseColumn))